home *** CD-ROM | disk | FTP | other *** search
/ SPACE 2 / SPACE - Library 2 - Volume 1.iso / program / 359 / def / gemdos.def < prev    next >
Encoding:
Modula Definition  |  1989-01-09  |  3.3 KB  |  118 lines
  1. DEFINITION MODULE GEMDOS;
  2.  
  3. (*
  4.  *  Copyright (c) 1987,1988,1989 by
  5.  *  ana-systems, Foster City, California.
  6.  *  All Rights Reserved.
  7.  *
  8.  *  This software is furnished under a license and may be used and copied
  9.  *  only  in accordance with  the  terms  of  such  license and  with the
  10.  *  inclusion of the above copyright notice.  This software or  any other
  11.  *  copies thereof may not be provided or otherwise made available to any
  12.  *  other  person.   No title to and ownership of the  software is  herby
  13.  *  transferred.
  14.  *
  15.  *  The information in this software is  subject to change without notice
  16.  *  and  should  not be construed as a commitment by ana-systems.   No
  17.  *  warranty is implied or expressed.
  18.  *)
  19.  
  20. FROM SYSTEM IMPORT ADDRESS,CODE,REGISTER;
  21.  
  22. EXPORT QUALIFIED Pterm,Malloc,Mfree,Fopen,Fcreate,Fdelete,Fclose,
  23.                  Fseek,Fread,Fwrite,Dcreate,Ddelete,Frename,
  24.                  Pterm0,Cconin,Cconout,Dgetdrv,Dsetdrv,Dgetpath,
  25.                  Dsetpath,Pexec,DFree,Cprnos,Cprnout,
  26.                  Fsfirst,Fsnext,Fsetdta,Fgetdta,Super,
  27.                  isatty,errno,ciPermissionNum,
  28.                  ciORDONLY,ciOWRONLY,ciORDWR,ciONDELAY,ciOAPPEND,
  29.                  ciOCREAT, ciOTRUNC, ciEXCLU,ciOCONTIG,ciSTDIN,
  30.                  ciSTDOUT, ciSTDERR, ARGSTRING_OP;
  31.  
  32. CONST
  33.  
  34.  (* defines for ATARI calls *)
  35.  (* open modes *)
  36.   ciORDONLY =    0B;    (* open only *)
  37.   ciOWRONLY =    1B;    (* open only *)
  38.   ciORDWR   =    2B;
  39.   ciONDELAY =    4B;
  40.   ciOAPPEND =   10B;
  41.   ciOCREAT  = 400B;     (* open only *)
  42.   ciOTRUNC  = 1000B;    (* open only *)
  43.   ciEXCLU   = 2000B;    (* open only *)
  44.   ciOCONTIG = 4000B;    (* open only *)
  45.  
  46.   ciPermissionNum = 00H;
  47.  
  48.   ciSTDIN  = 0;                 (* For Gemdos Standard Input *)
  49.   ciSTDOUT = 1;                 (* For Gemdos Standard Output *)
  50.   ciSTDERR = 1;                 (* For Gemdos Standard error *)
  51.  
  52.  
  53. VAR errno:INTEGER;
  54.  
  55. PROCEDURE isatty(lun:CARDINAL):BOOLEAN;
  56.  
  57. PROCEDURE Fclose(fd:CARDINAL):INTEGER;
  58.  
  59. PROCEDURE Fcreate(path:ADDRESS; attr:INTEGER):INTEGER;
  60.  
  61. PROCEDURE Pterm(Code:INTEGER);
  62.  
  63. PROCEDURE Mfree(addr:ADDRESS):INTEGER;
  64.  
  65. PROCEDURE Fseek(offset,fd,mode:INTEGER):INTEGER;
  66.  
  67. PROCEDURE Malloc(count:CARDINAL):ADDRESS;
  68.  
  69. PROCEDURE Dcreate(path:ADDRESS):INTEGER;
  70.  
  71. PROCEDURE Fwrite(fd,count:INTEGER; buffer:ADDRESS):INTEGER;
  72.  
  73. PROCEDURE Fread(fd,count:INTEGER; buffer:ADDRESS):INTEGER;
  74.  
  75. PROCEDURE Fopen(path:ADDRESS; attr:INTEGER):INTEGER;
  76.  
  77. PROCEDURE Fdelete(path:ADDRESS):INTEGER;
  78.  
  79. PROCEDURE Frename(oldpath,newpath:ADDRESS):INTEGER;
  80.  
  81. PROCEDURE Ddelete(path:ADDRESS):INTEGER;
  82.  
  83. PROCEDURE Pterm0;
  84.  
  85. PROCEDURE Cconin():INTEGER;
  86.  
  87. PROCEDURE Cconout(ch:CHAR);
  88.  
  89. PROCEDURE Dgetdrv():INTEGER;
  90.  
  91. PROCEDURE Dsetdrv(drive:INTEGER):INTEGER;
  92.  
  93. PROCEDURE Dgetpath(buff:ADDRESS; drive:INTEGER):INTEGER;
  94.  
  95. PROCEDURE Dsetpath(path:ADDRESS):INTEGER;
  96.  
  97. PROCEDURE Pexec(mode:INTEGER; path,cmdln,env:ADDRESS):INTEGER;
  98.  
  99. PROCEDURE DFree(buf:ADDRESS; drive:INTEGER);
  100.  
  101. PROCEDURE Cprnos():INTEGER;
  102.  
  103. PROCEDURE Cprnout(ch:CHAR):INTEGER;
  104.  
  105. PROCEDURE Fsfirst(path:ADDRESS; attr:INTEGER):INTEGER;
  106.  
  107. PROCEDURE Fsnext():INTEGER;
  108.  
  109. PROCEDURE Fsetdta(buffer:ADDRESS);
  110.  
  111. PROCEDURE Fgetdta():ADDRESS;
  112.  
  113. PROCEDURE Super(stack:INTEGER):INTEGER;
  114.  
  115. PROCEDURE ARGSTRING_OP(ac:CARDINAL):ADDRESS;
  116.  
  117. END GEMDOS.
  118.